CD ROM Paradise Collection 4/CD ROM Paradise Collection 4 1995 Nov.iso/program/swags_z.zip/STRINGS.SWG/0008_ST-CASE2.PAS.pas

Pascal/Delphi Source File | 1993-05-28 | 150b | 10 lines

Function DnCase(Ch: Char): Char;
Var
  n : Byte Absolute ch;
begin
  Case ch of
    'A'..'Z': n := n or 32;
  end;
  DnCase := chr(n);
end;